home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Flexible Writing Planner / card_10274.txt < prev    next >
Text File  |  1990-04-02  |  9KB  |  406 lines
  1. -- card: 10274 from stack: in
  2. -- bmap block id: 2929
  3. -- flags: 0000
  4. -- background id: 6913
  5. -- name: Main menu
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global name,date,time,topic
  9.   send opencard to background "planners"
  10.   if name is empty then
  11.     get card field "name" of card "student data"
  12.     put it into name
  13.     if it is empty then ask "Please type your name below."
  14.     else ask "Is this your name?  If not, please type your name." with name
  15.     put it into name
  16.     put it into card field "name" of card "student data"
  17.     put the short date into item 1 of sessionStart
  18.     put the short time into item 2 of sessionStart
  19.     get the number of lines of card field "card names" of card "student data"
  20.     put item 1 of sessionStart into line (it+1) of card field "session dates" of card "student data"
  21.     put item 2 of sessionStart into line (it+1) of card field "beginning times" of card "student data"
  22.   end if
  23.  
  24.   if topic is empty then
  25.     set cursor to watch
  26.     put background field "topic" of card "student data" into topic
  27.     put quote&topic"e&"." into cd fld "topic"
  28.     get the number of cards in background "planners"
  29.     repeat with i = 1 to it
  30.       put topic into background field "topic" of card i of background "planners"
  31.     end repeat
  32.   end if
  33.  
  34. end opencard
  35.  
  36.  
  37.  
  38. -- part 1 (button)
  39. -- low flags: 00
  40. -- high flags: A001
  41. -- rect: left=72 top=176 right=222 bottom=154
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 1 / 1
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Audience/Purpose
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   global lastBtn
  53.   put the short name of target into lastBtn
  54.   visual zoom open slow
  55.   go to card the short name of target
  56.   set hilite of bkgnd button lastBtn to true
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 2 (button)
  62. -- low flags: 00
  63. -- high flags: A001
  64. -- rect: left=158 top=176 right=222 bottom=208
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 7012 / 7012
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: List Ideas
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   global lastBtn
  76.   put the short name of target into lastBtn
  77.   visual zoom open slow
  78.   go to card the short name of target
  79.   set hilite of bkgnd button lastBtn to true
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 3 (button)
  85. -- low flags: 00
  86. -- high flags: A001
  87. -- rect: left=212 top=176 right=222 bottom=283
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 20186 / 20186
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Alike/Different
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   global lastBtn
  99.   put the short name of target into lastBtn
  100.   visual zoom open slow
  101.   go to card the short name of target
  102.   set hilite of bkgnd button lastBtn to true
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 4 (button)
  108. -- low flags: 00
  109. -- high flags: A001
  110. -- rect: left=286 top=176 right=222 bottom=353
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 14939 / 14939
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Organize Ideas
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   global lastBtn
  122.   put the short name of target into lastBtn
  123.   visual zoom open slow
  124.   go to card the short name of target
  125.   set hilite of bkgnd button lastBtn to true
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 5 (button)
  131. -- low flags: 00
  132. -- high flags: A001
  133. -- rect: left=356 top=176 right=222 bottom=400
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 1005 / 1005
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Essay
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   global lastBtn
  145.   put the short name of target into lastBtn
  146.   visual zoom open slow
  147.   go to card the short name of target
  148.   set hilite of bkgnd button lastBtn to true
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 6 (button)
  154. -- low flags: 00
  155. -- high flags: 2000
  156. -- rect: left=417 top=224 right=256 bottom=449
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Pause
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   push card
  168.   put the time into line 1 of card field "time" of card "pausing"
  169.   put the time into line 3 of card field "time" of card "pausing"
  170.   visual dissolve
  171.   go to card "pausing"
  172. end mouseUp
  173.  
  174.  
  175.  
  176. -- part 8 (field)
  177. -- low flags: 01
  178. -- high flags: 0000
  179. -- rect: left=68 top=91 right=165 bottom=446
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 0
  183. -- font id: 3
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 14
  187. -- part name: 
  188.  
  189.  
  190. -- part 9 (field)
  191. -- low flags: 01
  192. -- high flags: 0000
  193. -- rect: left=208 top=119 right=135 bottom=306
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 0
  197. -- font id: 3
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 14
  201. -- part name: 
  202.  
  203.  
  204. -- part 10 (field)
  205. -- low flags: 01
  206. -- high flags: 0000
  207. -- rect: left=89 top=147 right=161 bottom=168
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 3
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 14
  215. -- part name: 
  216.  
  217.  
  218. -- part 11 (field)
  219. -- low flags: 01
  220. -- high flags: 0000
  221. -- rect: left=119 top=91 right=107 bottom=160
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 0
  225. -- font id: 3
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 14
  229. -- part name: 
  230.  
  231.  
  232. -- part 14 (field)
  233. -- low flags: 01
  234. -- high flags: 0000
  235. -- rect: left=204 top=164 right=180 bottom=309
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 1024
  242. -- line height: 12
  243. -- part name: 
  244.  
  245.  
  246. -- part 15 (field)
  247. -- low flags: 01
  248. -- high flags: 0000
  249. -- rect: left=170 top=90 right=124 bottom=435
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: topic
  258.  
  259.  
  260. -- part 16 (button)
  261. -- low flags: 00
  262. -- high flags: 0000
  263. -- rect: left=465 top=289 right=342 bottom=512
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: 
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   visual iris close
  275.   pop cd
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 17 (button)
  281. -- low flags: 00
  282. -- high flags: A004
  283. -- rect: left=70 top=232 right=253 bottom=150
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: About...
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   push card
  295.   visual dissolve
  296.   go to cd "about..."
  297. end mouseUp
  298.  
  299.  
  300.  
  301. -- part 18 (button)
  302. -- low flags: 00
  303. -- high flags: 2000
  304. -- rect: left=350 top=225 right=255 bottom=375
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: help
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   push card
  316.   visual dissolve
  317.   go to card the short name of target
  318. end mouseUp
  319.  
  320.  
  321. -- part 19 (field)
  322. -- low flags: 01
  323. -- high flags: 0000
  324. -- rect: left=176 top=147 right=161 bottom=255
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 0
  328. -- font id: 3
  329. -- text size: 12
  330. -- style flags: 0
  331. -- line height: 14
  332. -- part name: 
  333.  
  334.  
  335. -- part 21 (button)
  336. -- low flags: 00
  337. -- high flags: A004
  338. -- rect: left=155 top=232 right=253 bottom=320
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 0
  343. -- text size: 12
  344. -- style flags: 0
  345. -- line height: 16
  346. -- part name: Management System
  347. ----- HyperTalk script -----
  348. on mouseUp
  349.   visual dissolve
  350.   go to cd "student data"
  351.   answer "Pressing ""e&"‚åò + 4""e&" will always go to this card."
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 23 (button)
  357. -- low flags: 00
  358. -- high flags: A002
  359. -- rect: left=16 top=319 right=340 bottom=76
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: Return
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   global returncard
  371.   go to returncard
  372. end mouseUp
  373.  
  374.  
  375.  
  376. -- part contents for card part 8
  377. ----- text -----
  378. 1.  Your topic is:
  379.  
  380. 2.  Click on one of the Planning Icons below.
  381. 3.  If you are not ready to start planning, click on the 
  382.      Pause Icon or Help Icon.
  383.  
  384. -- part contents for card part 9
  385. ----- text -----
  386. Planning Icons
  387.  
  388. -- part contents for card part 10
  389. ----- text -----
  390. Pause Icon
  391.  
  392. -- part contents for card part 11
  393. ----- text -----
  394. topic
  395.  
  396. -- part contents for card part 14
  397. ----- text -----
  398. Planning Icons
  399.  
  400. -- part contents for card part 15
  401. ----- text -----
  402. "Indians of NorthWest USA".
  403.  
  404. -- part contents for card part 19
  405. ----- text -----
  406. Help Icon